home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / force2.zip / FSI.PRG < prev    next >
Text File  |  1990-08-08  |  2KB  |  59 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: FSI.PRG
  4. *:
  5. *:         System: Clone of Norton's System Info program
  6. *:         Author: John Wright
  7. *:      Copyright (c) 1990, WRIGHTware
  8. *:  Last modified: 08/07/90      0:00
  9. *:
  10. *:  Procs & Fncts: FORCE_MAIN
  11. *:
  12. *:      Documented 08/08/90 at 13:47                SNAP!  version 4.02h
  13. *:*********************************************************************
  14. *  Very simple program to print out equipment list.
  15.  
  16. #INCLUDE iif.hdr
  17. #INCLUDE string.hdr
  18. #INCLUDE system.hdr
  19.  
  20. VARDEF
  21.   LOGICAL  disk,coprocessor,mouse,game_port,dma
  22.   UINT     mem,v_mode,num_drvs,num_232,num_prn
  23. ENDDEF
  24.  
  25. *!*********************************************************************
  26. *!
  27. *!      Procedure: FORCE_MAIN
  28. *!
  29. *!*********************************************************************
  30. PROCEDURE force_main
  31.  
  32. equipment(DISK, coprocessor, Mem, mouse, v_mode, num_drvs, dma,;
  33.   num_232,game_port,num_prn)
  34.  
  35. ?" System Info from Force 2.1"
  36. ?" --------------------------"
  37. ?"   Operating system: ", OS()
  38. ?"        Coprocessor: ", iifc(coprocessor,"Yes","No")
  39. ?"      Floppy drives: ", STR(num_drvs,1,0)
  40. ?"       Serial ports: ", STR(num_232,1,0)
  41. ?"     Parallel ports: ", STR(num_prn,1,0)
  42. ?"          Game port: ", iifc(game_port,"Yes","No")
  43. ?"              Mouse: ", iifc(mouse,"Yes","No")
  44. ?"      DMA installed: ", iifc(dma,"Yes","No")
  45. ?" Current video mode: "
  46. DO CASE
  47. CASE v_mode = 1
  48.   ??" 40x25 color"
  49. CASE v_mode = 2
  50.   ??" 80x25 color"
  51. CASE v_mode = 3
  52.   ??" 80x25 monochrome"
  53. ENDCASE
  54. ?
  55.  
  56. ENDPRO
  57.  
  58. *: EOF: FSI.PRG
  59.